home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / create driver (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  2.6 KB  |  126 lines
  1. 1 poke56,112:clr
  2. 2 poke53280,0:poke53281,0
  3. 3 print"[147]";:ln=60:dv=peek(186)
  4. 4 dimc(15):forx=0to15:readc(x):next
  5. 5 data 144,5,28,159,156,30,31,158,129
  6. 6 data 149,150,151,152,153,154,155
  7. 7 :
  8. 8 nm$=""
  9. 9 input"   screen to crunch";nm$
  10. 10 iflen(nm$)<1orlen(nm$)>16thenstop
  11. 11 open1,dv,15:open3,dv,3,nm$+",p,r"
  12. 12 input#1,a$,b$:ifa$="00"then15
  13. 13 print""b$:close3:close1:stop
  14. 14 :
  15. 15 cr$=""
  16. 16 input"basic screen driver";cr$
  17. 17 iflen(cr$)<1orlen(cr$)>16thenstop
  18. 18 open2,dv,2,cr$+",p,w"
  19. 19 input#1,a$,b$:ifa$="00"then22
  20. 20 print""b$:close2:close1:stop
  21. 21 :
  22. 22 print" loading ";nm$
  23. 23 a=28672:get#3,a$,b$
  24. 24 get#3,a$:pokea,asc(a$+chr$(0))
  25. 25 a=a+1:ifst=0then24
  26. 26 close3
  27. 27 :
  28. 28 r=0:a=28672:b=a+1024
  29. 29 print"creating ";cr$
  30. 30 forx=0to135:readc
  31. 31 print#2,chr$(c);:next
  32. 32 ifpeek(a+1004)<64then35
  33. 33 forx=0to53:readc
  34. 34 print#2,chr$(c);:next:goto36
  35. 35 forx=0to53:readc:next
  36. 36 tk=131
  37. 37 e=a+1000:gosub81
  38. 38 ifpeek(a+1004)<64then42
  39. 39 e=a+1001:gosub81
  40. 40 e=a+1002:gosub81
  41. 41 e=a+1003:gosub81
  42. 42 tk=153
  43. 43 a$=chr$(34)+"[147]"+chr$(34)+chr$(59)
  44. 44 gosub83
  45. 45 :
  46. 46 ls=20:forrw=1to49:gosub58:nextrw
  47. 47 ls=19:gosub58
  48. 48 tk=151
  49. 49 a$="30695,":e=29671:gosub82
  50. 50 a$="56295,":e=30695:gosub82
  51. 51 a$="53265,":e=29676:gosub82
  52. 52 forx=0to82:readc
  53. 53 print#2,chr$(c);:next
  54. 54 close2:close1
  55. 55 print"[192] okay [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  56. 56 end
  57. 57 :
  58. 58 print#2,chr$(1)chr$(1);
  59. 59 print#2,chr$(lnand255);
  60. 60 print#2,chr$(int(ln/256));
  61. 61 print#2,chr$(153)chr$(34);
  62. 62 forcl=1tols
  63. 63 c=peek(a):d=peek(b)
  64. 64 ifd=ethen66
  65. 65 print#2,chr$(c(dand15));
  66. 66 ifc>127orr=0then68
  67. 67 r=0:print#2,chr$(146);
  68. 68 ifc<64andc>31then75
  69. 69 ifc<32thenc=c+64:goto75
  70. 70 ifc<96thenc=c+32:goto75
  71. 71 ifc<128thenc=c+64:goto75
  72. 72 c=cand127
  73. 73 ifr=0thenprint#2,chr$(18);
  74. 74 r=1:goto68
  75. 75 print#2,chr$(c);
  76. 76 a=a+1:b=b+1:e=d
  77. 77 nextcl
  78. 78 print#2,chr$(34)chr$(59)chr$(0);
  79. 79 ln=ln+5:return
  80. 80 :
  81. 81 a$=""
  82. 82 a$=a$+str$(peek(e))
  83. 83 print#2,chr$(1)chr$(1);
  84. 84 print#2,chr$(lnand255);
  85. 85 print#2,chr$(int(ln/256));
  86. 86 print#2,chr$(tk)a$chr$(0);
  87. 87 ln=ln+5:return
  88. 88 :
  89. 89 data 1,8
  90. 90 data 1,1,10,0,139,65,178,48
  91. 91 data 167,65,178,49,58,147,34,70
  92. 92 data 79,78,84,32,78,65,77,69
  93. 93 data 34,44,56,44,49,0,1,1
  94. 94 data 15,0,151,53,54,44,49,49
  95. 95 data 54,58,156,0,1,1,20,0
  96. 96 data 151,53,51,50,54,53,44,48
  97. 97 data 0,1,1,25,0,151,53,54
  98. 98 data 53,55,54,44,40,194,40,53
  99. 99 data 54,53,55,54,41,175,50,53
  100. 100 data 50,41,176,50,0,1,1,30
  101. 101 data 0,151,53,51,50,55,50,44
  102. 102 data 50,50,50,58,151,54,52,56
  103. 103 data 44,49,49,54,0,1,1,35
  104. 104 data 0,135,65,58,151,53,51,50
  105. 105 data 56,48,44,65,58,151,53,51
  106. 106 data 50,56,49,44,65,0,1,1
  107. 107 data 40,0,135,65,58,151,53,51
  108. 108 data 50,56,50,44,65,0,1,1
  109. 109 data 45,0,135,65,58,151,53,51
  110. 110 data 50,56,51,44,65,0,1,1
  111. 111 data 50,0,135,65,58,151,53,51
  112. 112 data 50,56,52,44,65,0,1,1
  113. 113 data 55,0,58,0
  114. 114 :
  115. 115 data 1,1,94,1,151,49,57,56
  116. 116 data 44,48,58,146,49,57,56,44
  117. 117 data 49,0,1,1,99,1,151,53
  118. 118 data 54,53,55,54,44,40,194,40
  119. 119 data 53,54,53,55,54,41,175,50
  120. 120 data 53,50,41,176,51,0,1,1
  121. 121 data 104,1,151,53,51,50,55,50
  122. 122 data 44,50,50,58,151,53,51,50
  123. 123 data 54,53,44,50,55,0,1,1
  124. 124 data 109,1,151,54,52,56,44,52
  125. 125 data 0,0,0
  126.